﻿Sub 첫번째매크로()

    Range("B6:B9").Copy
    Range("D6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    Range("D6:D9").TextToColumns Destination:=Range("D6"), _
                            DataType:=xlDelimited, _
                            TextQualifier:=xlDoubleQuote, _
                            ConsecutiveDelimiter:=False, _
                            Tab:=True, _
                            Semicolon:=False, _
                            Comma:=False, _
                            Space:=False, _
                            Other:=False, _
                            FieldInfo:=Array(1, 3), _
                            TrailingMinusNumbers:=True
    
    Range("F6").Value = "최준선"
    
End Sub